home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 19 / AMIGAplus Sonderheft 19 (1999)(ICP)(DE)[!].iso / Demoversionen / Anwendungen / Net_Connect / NC_2.1 / AmIRC / Rexx / RAW.amirx < prev    next >
Text File  |  1999-03-08  |  1KB  |  43 lines
  1. /* RAW.amirx by Ariel Magnum
  2. ** Demonstrates how to send IRC commands with RAW
  3. ** To learn more,leave your RAW Log window open
  4. */
  5. Options Results  /* Enable rc/result return codes */
  6. signal on syntax /* Enables syntax checking       */
  7. prefix='RAWDemo'/* Prefix for echos              */
  8. colour=3         /* Colour fo echos               */
  9.  
  10. /* Begin */
  11. ctcpmarker='01'x
  12. "GETMYNICK"
  13. mynick=result
  14. "GETCHANNEL"
  15. channel=result
  16. "RAW PRIVMSG" mynick ":a Private message"
  17. "RAW NOTICE" mynick ":a Notice"
  18. "RAW PRIVMSG" mynick ":"ctcpmarker"VERSION"ctcpmarker
  19. "RAW MODE" channel "+v" mynick /* Voice */
  20. cecho("Finished demo")
  21. /* End   */
  22. exit
  23.  
  24. /* Shared Functions */
  25. bold:      /* This function bolds text*/
  26. return '02'x||arg(1)||'02'x
  27.  
  28. underline: /* This function underlines text*/
  29. return '1F'x||arg(1)||'1F'x
  30.  
  31. inverse:   /* This function inverses text*/
  32. return '16'x||arg(1)||'16'x
  33.  
  34. cecho:     /* This function echo's text to listview*/
  35. "ECHO P="d2c(27)"b«"prefix"» C="colour arg(1)
  36. return 0
  37.  
  38. syntax:   /* This function returns where you made a syntax error */
  39. prefix="Syntax"
  40. cecho("Command on line" SIGL "returned" RC ":" errortext(rc) sourceline(SIGL))
  41. exit
  42.  
  43.